
Sub MAYOR()
'
' MAYOR Macro
'
    ActiveSheet.Unprotect Password:="123"
    Range("A12:F1000").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=2001
    Range("A2001").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintPreview
    Range("A2001:F3001").Select
    Selection.ClearContents
    Range("A11").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
    ActiveSheet.EnableSelection = xlNoSelection
End Sub
Sub insertafila()
ActiveSheet.Unprotect "124"
ActiveSheet.Range("SELEC").EntireRow.Insert
Sheets("D").Protect
End Sub
Sub limpiaf()
Range("limpiar,D3,C6,C21,F3,LIMCOD").Select
Selection.ClearContents
End Sub
Sub LimpiaCE()

Range("DEG").Select
Selection.ClearContents

End Sub
Sub limpiafE()
Call limpiaf
Call LimpiaCE
End Sub
Sub imprimir()
On Error Resume Next
ActiveSheet.PrintPreview
End Sub
Sub Limpiaarea()
Range("Area").ClearContents
End Sub
Sub LimpiaareaE()
Range("CArea").ClearContents
End Sub

Sub BusquedaContinuaM()
Dim busca As Object
Dim Primero
Dim hojaBusc As String, quebusco As String, mihoja As String
Dim filalibre As Integer
'en la siguiente variable se indica la hoja dnde buscar
hojaBusc = "DIARIO"
'el dato a buscar se encuentra en E3 de la hoja activa
'la variable "mihoja" ser donde se volcarn los datos
mihoja = "MAYOR"
filalibre = 10
quebusco = Sheets(mihoja).Range("H7")
'la bsqueda se realiza sobre la columna D de la Hoja3
Set busca = Sheets(hojaBusc).Range("G2:G2000").Find(quebusco, LookIn:=xlValues, Lookat:=xlWhole)
'si busca No es Vaco es decir si la bsqueda es exitosa y encuentra el dato, guarda ladireccin en la variable Primero
If Not busca Is Nothing Then
Primero = busca.Address
'comienza el bucle
Do
'completa la fila de la hoja activa (Hoja2) con datos del registro encontrado
Sheets(mihoja).Cells(filalibre, 1) = busca.Offset(0, -6)   'dato de col A FECHA
Sheets(mihoja).Cells(filalibre, 2) = busca.Offset(0, -5)   'dato de col B N ASI
Sheets(mihoja).Cells(filalibre, 3) = busca.Offset(0, -4)   'dato de col c N ING
Sheets(mihoja).Cells(filalibre, 4) = busca.Offset(0, -3)   'dato de col c N EGR
Sheets(mihoja).Cells(filalibre, 5) = busca.Offset(0, -2)   'dato de col c N ND
Sheets(mihoja).Cells(filalibre, 6) = busca.Offset(0, -1)   'dato de col c N ND
Sheets(mihoja).Cells(filalibre, 7) = busca                    'dato de col D CODIGO
Sheets(mihoja).Cells(filalibre, 8) = busca.Offset(0, 2)   'dato de col J DESCRIPCION
Sheets(mihoja).Cells(filalibre, 9) = busca.Offset(0, 3)   'dato de col P DEBE
Sheets(mihoja).Cells(filalibre, 10) = busca.Offset(0, 4)   'dato de col R HABER
filalibre = filalibre + 1

'contina la bsqueda
Set busca = Sheets(hojaBusc).Range("G2:G2000").FindNext(busca)
'se repite la rutina hasta volver a la primer direccin guardada.
Loop While Not busca Is Nothing And busca.Address <> Primero
End If
'se libera la variable
Set busca = Nothing
Call MuestraCinta
Call Imprimirmayor
Call ocultaCinta
Call LimpiaMayor
End Sub
Sub LimpiaMayor()
Range("A10:J2000").ClearContents
End Sub
Sub Imprimirmayor()
Call IRAMAYOR
On Error Resume Next
Sheets("MAYOR").Activate
ActiveSheet.PrintPreview
    
End Sub

Sub ImprimirD()
' imprimir Macro
Sheets("DIARIO").Select
    ActiveWindow.SelectedSheets.PrintPreview
Call REGRESARMENU
End Sub
Sub ImprimirB()
' imprimir Macro
Sheets("BALANCE").Activate
    ActiveWindow.SelectedSheets.PrintPreview
Call REGRESARMENU
End Sub
Sub ImprimirG()
' imprimir Macro
Sheets("GENERAL").Select
    ActiveWindow.SelectedSheets.PrintPreview

End Sub
Sub ImprimirR()
' imprimir Macro
Sheets("RESULTADO").Select
    ActiveWindow.SelectedSheets.PrintPreview

End Sub


Sub DEFINIRD()
Call IRADIARIO
Call MuestraCinta
'Establecer area de imprecion cuentas x cobrar
    Application.PrintCommunication = False
    With Sheets("DIARIO").PageSetup
        .PrintTitleRows = "$1:$1"
    End With
    Application.PrintCommunication = True
    Sheets("DIARIO").PageSetup.PrintArea = "$A$2:$M$200"
    Call ImprimirD
    Call ocultaCinta
Call REGRESARMENU
    
End Sub
Sub DEFINIRB()
Call IRABALANC
Call MuestraCinta
'Establecer area de imprecion cuentas x cobrar
    Application.PrintCommunication = False
    With Sheets("BALANCE").PageSetup
        .PrintTitleRows = "$1:$8"
    End With
    Application.PrintCommunication = True
    Sheets("BALANCE").PageSetup.PrintArea = "$A$1:$F$160"
    Call ImprimirB
    Call ocultaCinta
    Call REGRESARMENU
    
End Sub

Sub DEFINIRR()
Call IRARESULTADOS
Call MuestraCinta
'Establecer area de imprecion RESUMEN KARDEX
    Application.PrintCommunication = False
    With Sheets("RESULTADO").PageSetup
        .PrintTitleRows = "$1:$7"
    End With
    Application.PrintCommunication = True
    Sheets("RESULTADO").PageSetup.PrintArea = "$A$1:$D$52"
    Call ImprimirR
    Call ocultaCinta
    Call REGRESARMENU
    
End Sub

Sub DEFINIRG()
Call IRAGENERAL
Call MuestraCinta
'Establecer area de imprecion productos
    Application.PrintCommunication = False
    With Sheets("GENERAL").PageSetup
        .PrintTitleRows = "$1:$7"
    End With
    Application.PrintCommunication = True
    Sheets("GENERAL").PageSetup.PrintArea = "$A$1:$D$122"
    Call ImprimirG
    Call ocultaCinta
    Call REGRESARMENU
End Sub

